      integer function ctomn (c, rep)
      integer c, rep (4)
      integer i
      integer length
      integer mntext (136)
      data mntext /  78, 85, 76, -2, 83, 79, 72, -2, 83, 84, 88, -2, 69,
     * 84, 88, -2, 69, 79, 84, -2, 69, 78, 81, -2, 65, 67, 75, -2, 66, 6
     *9, 76, -2, 66, 83, -2, -2, 72, 84, -2, -2, 76, 70, -2, -2, 86, 84,
     * -2, -2, 70, 70, -2, -2, 67, 82, -2, -2, 83, 79, -2, -2, 83, 73, -
     *2, -2, 68, 76, 69, -2, 68, 67, 49, -2, 68, 67, 50, -2, 68, 67, 51,
     * -2, 68, 67, 52, -2, 78, 65, 75, -2, 83, 89, 78, -2, 69, 84, 66, -
     *2, 67, 65, 78, -2, 69, 77, -2, -2, 83, 85, 66, -2, 69, 83, 67, -2,
     * 70, 83, -2, -2, 71, 83, -2, -2, 82, 83, -2, -2, 85, 83, -2, -2, 8
     *3, 80, -2, -2, 68, 69, 76, -2/
      i = mod (max0(c,0), 128)
      if (.not.(0 .le. i .and. i .le. 32))goto 23000
      call scopy (mntext, 4 * i + 1, rep, 1)
      goto 23001
23000 continue
      if (.not.(i .eq. 127))goto 23002
      call scopy (mntext, 133, rep, 1)
      goto 23003
23002 continue
      rep (1) = c
      rep (2) = -2
23003 continue
23001 continue
      ctomn=(length (rep))
      return
      end
